home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / t_os / chord2 / chord.bas next >
BASIC Source File  |  1993-07-08  |  2KB  |  93 lines
  1. 10 '
  2. 20 '             chord.bas
  3. 30 '
  4. 40 ' 
  5. 50 '
  6. 60 CLS:COLOR 7
  7. 70 LOAD@ "clas_c.pmb"
  8. 80 P$="@1":O=0:WA=0
  9. 90 PLAY ,,,,,,P$,P$,P$,P$,P$,P$
  10. 100 '
  11. 110 DIM C(8,5),S$(8),L$(13),PX(26),PY(26)
  12. 120 '
  13. 130 RESTORE 670
  14. 140 READ A$:IF A$<>"\" THEN PRINT A$:GOTO 140
  15. 150 I=1
  16. 160 FOR I=1 TO 12:READ L$(I):NEXT
  17. 170 '
  18. 180 FOR I=0 TO 1
  19. 190  READ G$
  20. 200  FOR J=1 TO LEN(G$)
  21. 210   LINE(283+J*8,200+I*32)-STEP(8,32),PSET,VAL(MID$(G$,J,1)),BF
  22. 220 NEXT J,I
  23. 230 FOR I=0 TO 7 
  24. 240   LINE(291+I*24,200)-STEP(0,64),PSET,0
  25. 250 NEXT I
  26. 260 '
  27. 270 FOR I=0 TO 12
  28. 280  READ PX(I)
  29. 290 NEXT 
  30. 300 '
  31. 310 FOR I=0 TO 12
  32. 320  READ PY(I)
  33. 330 NEXT 
  34. 340 '
  35. 350 RESTORE 570
  36. 360 '
  37. 370 FOR I=0 TO 8
  38. 380 READ S
  39. 390 READ S$(S),C(S,0),C(S,1),C(S,2),C(S,3) ,C(S,4)
  40. 400 NEXT
  41. 410 '
  42. 420 R$=INPUT$(1)
  43. 430 FOR I=0 TO 3
  44. 440  LOCATE 38+PX((R+C(S,I)) MOD 12),11+PY((R+C(S,I)) MOD 12)*2:PRINT" "
  45. 450 NEXT I
  46. 460 R=INSTR("cfvgbnjmk,l.",R$)
  47. 470 IF R=0 THEN 420
  48. 480 S=PAD(1):COLOR 7:LOCATE 45,15:PRINT L$(R);" ";S$(S);" ":COLOR 5
  49. 490 '
  50. 500 FOR I=0 TO 4
  51. 510 OUTM #255,&H96+I,57+((R+C(S,I)) MOD 12)+O,120
  52. 520  IF I<=3 THEN LOCATE 38+PX((R+C(S,I))MOD 12),11+PY((R+C(S,I))MOD 12)*2:PRINT"@"
  53. 530  FOR J=0 TO WA:NEXT
  54. 540 NEXT I
  55. 550 GOTO 420
  56. 560 '
  57. 570 DATA 0,"    ", 0,4,7,0,-12
  58. 580 DATA 1,"m   ", 0,3,7,0,-12
  59. 590 DATA 2,"dim7", 0,3,6,9,-12
  60. 600 DATA 3,"m7  ", 0,3,7,10,-12
  61. 610 DATA 4,"M7  ", 0,4,7,11,-12
  62. 620 DATA 5,"7   ", 0,4,7,10,-12
  63. 630 DATA 6,"    ", 0,0,0,0,-12
  64. 640 DATA 7,"7sus4", 0,5,7,10,-12
  65. 650 DATA 8,"sus4", 0,5,7,0,-12
  66. 660 '
  67. 670 DATA "PAD                     - ＣＨＯＲＤ -"
  68. 680 DATA "      m    "
  69. 690 DATA "  sus4 dim7"
  70. 700 DATA "7sus4 *  m7    "
  71. 710 DATA "   --- M7"
  72. 720 DATA "      7                押さない ･･･ ﾒｲｼﾞｬｰ ｺｰﾄﾞ"
  73. 730 DATA "----------------------------------------------------"
  74. 740 DATA ""
  75. 750 DATA "KEY BOARD"
  76. 760 DATA ""
  77. 770 DATA "  　　 C#Db D#b　　F#Gb G#Ab A#Bb"
  78. 780 DATA ""
  79. 790 DATA "  　　　Ｆ　Ｇ　　　Ｊ　Ｋ　Ｌ"
  80. 800 DATA ""
  81. 810 DATA "    　Ｃ　Ｖ　Ｂ　Ｎ　Ｍ　，　．"
  82. 820 DATA ""
  83. 830 DATA "      C   D   E   F   G   A   B"
  84. 840 DATA "\"
  85. 850 '
  86. 860 DATA "C   ","C#Db","D   ","D#Eb","E   ","F   ","F#Gb","G   ","G#Ab","A   ","A#Bb","B   "
  87. 870 '
  88. 880 DATA "77007007777007007007770"
  89. 890 DATA "77777777777777777777777"
  90. 900 '
  91. 910 DATA 18,0,1,3,4,6,9,10,12,13,15,16,18
  92. 920 DATA 1,1,0,1,0,1,1,0 ,1 ,0 ,1 ,0 ,1
  93.